بسم الله الرحمن الرحيم

عدنا للمره الثالتة في الدرس الثالث في الاكتف اسكين ActiveSkin 4.3

موضوع الدرس :

1- كيفيية عمل " انيماشن Animation  في الاكتف اسكين لاي ابجيكت اي اداه سواء بوتن اوبكتشر او اي اداه اخرى فليكن الاداه الذي سوف نفعل لها الانيماشن هي زر او بوتون Button   .

 - طبعا كما شرحنا في الدرس السابق وهو كيفية عمل او ادراج زر في الاكتف اسكين وربطه بالـ VB   , نقوم بفعل ذلك كما يلي

- أولاً : ادراج زر على فورم الاكتف اسكين.

- ولمعرفة كيف ذلك ؟ راجع الدرس الثاني .

ثانياً : نضغط كليك واحده على اسم الزر الموجود تحت اسم الفورم الذي قمت بتسميته  (Button_Test ) كما هو موضح بالصوره امامك رقم "1"

الصوره رقم  "1"

- نذهب الى قائمة View >> Animation Control

كما هو موضح بالصوره رقم "2"

الصوره رقم "2"

- سيظهر لك على الناحية اليمنى بجانب شريط الخصائص كما هو موضح بالصوره رقم "3"

الصوره رقم "3"

- أضغط على + لاضافة الحركه سوف يضيف لك الحركه على شكل فولدر بالاسم الافتراضي له وهو New Animation اضغط بالماوس كليك للتعليم عليه ثم اضغط على abI  وهذا لتسمية الحركه ولنسميها مثلا A1   كما هو موضح بالشكل رقم "4"

الشكل رقم "4"

- اضغط كليك يمين على الحركه ثم اختار من القائمة التي تظهر لك Add Key كما هو موضح في الصوره رقم  "5"

الصوره رقم "5"

 - سوف يظهر لك مربع حوار بعنوان Transition Settings

 - غير قيمة الـ Time  الى مثلا 500 ثم أضغط OK

 - سوف يظر لك الـ Key  اضغط عليه بالماوس كليك وهذا الكى هو                  الذي يحدث الحركه عند مرور الماوس على الزر .

حدد الحركه بتحريك الزر في المكان الذي تريد ان يظهر لك فيه عند مرور الماوس عليه .

باقي اضافة الانيماشن الثانيه وهي عند ايعاد الماوس عن الزر ونقوم فعل ذلك بأضافة انماشن بنفس الطريقه السابقه .

وللعلم نقوم بالاتي :

 - أضغط على + لاضافة الحركه سوف يضيف لك الحركه على شكل   فولدر بالاسم الافتراضي له وهو New Animation اضغط بالماوس كليك للتعليم عليه ثم اضغط على abI  وهذا لتسمية الحركه ولنسميها   مثلا A2   كما هو موضح بالشكل رقم "4"

- اضغط كليك يمين على الحركه ثم اختار من القائمة التي تظهر لك Add Key كما هو موضح في الصوره رقم  "5" .

- سوف يظهر لك مربع حوار بعنوان Transition Settings

- غير قيمة الـ Time  الى مثلا 1000 ثم أضغط OK

· سوف يكون الشكل النهائي للانيماشن كما هو موضح بالصوره رقم "6"

الصوره رقم "6"

باقي اخر شيئ وهو اضافة هذه الحركه مع هذه الاحداث ويكون هذا بهذه الطريقة :

- اضغط على الزر ومن ثم من فاءمة الخصائص ستجد الحدثين الاول وهو On Mouse In   وهذا الحدث عن مجيئ الماوس على الزر والحدث الثاني هو On Mouse Out وهو ابعاد الماوس عنه .

كما هو موضح بالصوره رقم "7"

الصوره رقم  "7"

اضغط على الزر الذي امام الحدث سيظهر لك مربع حوار كما هو موضح بالصوره رقم  "8"Event Settings

على اليسار ستجد اختيارين الأولA1  والثاني A2   وهم الانميشن الذي قمت بادراجهم فتختار مع الـ Mouse In الانيماشن المسمىA1  ومع  Mouse Out اختار A2

الصورهرقم "8"

الان اضغط F5  لتجربة البرنامج واذه بالماوس الى الزر سوف تحدث الحركه الاولى "A1"  ثم ابعد بالماوس سوف تحدث الحركه الثانية "A2"

- والان قم بربط الاسكين بال VB  واذا لم تعرف كيف ؟

ذلك بهذه الطريقه افتح مشروع جديد ثم اضف اداة الاكتف اسكن ثم اضف هذا الكود في حدث اللود للفورم

Private Sub Form_Load()

ApplySkin App.Path + "TEST.skn"

Form_TEST= True

End Sub

- مع تغير "TEST.skn" بإسم الاسكنز حسب ماأنت مسميها .

- مع تغير ايضا Form_TEST بالإسم الفورم في الاكتف اسكين حسب ماأنت مسميها

ثم ضع هذا الكود كما هو

Private Sub ApplySkin(SkinPath As String)

Skin1.LoadSkin SkinPath

Skin1.ApplySkinByName hWnd, "Form_TEST"

End Sub

وبهذا أكون قد انتهيت من شرح الدرس الثالث

تحياتي لكم اخوكم في الله أحمد عزت